home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Visual Basic new SourceCode and Projects / Adventure game / find.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-05-12  |  3.7 KB  |  130 lines
  1. VERSION 5.00
  2. Begin VB.Form frmFind 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Find"
  5.    ClientHeight    =   1305
  6.    ClientLeft      =   2655
  7.    ClientTop       =   3585
  8.    ClientWidth     =   4950
  9.    BeginProperty Font 
  10.       Name            =   "Times New Roman"
  11.       Size            =   8.25
  12.       Charset         =   0
  13.       Weight          =   700
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    Icon            =   "find.frx":0000
  19.    LinkTopic       =   "Form2"
  20.    MaxButton       =   0   'False
  21.    MinButton       =   0   'False
  22.    ScaleHeight     =   1305
  23.    ScaleWidth      =   4950
  24.    Begin VB.Frame Frame1 
  25.       Caption         =   "Direction"
  26.       Height          =   612
  27.       Left            =   1560
  28.       TabIndex        =   3
  29.       Top             =   600
  30.       Width           =   2052
  31.       Begin VB.OptionButton optDirection 
  32.          Caption         =   "&Down"
  33.          Height          =   252
  34.          Index           =   1
  35.          Left            =   960
  36.          TabIndex        =   5
  37.          ToolTipText     =   "Search to End of Document"
  38.          Top             =   240
  39.          Value           =   -1  'True
  40.          Width           =   852
  41.       End
  42.       Begin VB.OptionButton optDirection 
  43.          Caption         =   "&Up"
  44.          Height          =   252
  45.          Index           =   0
  46.          Left            =   240
  47.          TabIndex        =   4
  48.          ToolTipText     =   "Search to Beginning of Document"
  49.          Top             =   240
  50.          Width           =   612
  51.       End
  52.    End
  53.    Begin VB.CheckBox chkCase 
  54.       Caption         =   "Match &Case"
  55.       Height          =   495
  56.       Left            =   120
  57.       TabIndex        =   2
  58.       ToolTipText     =   "Case Sensitivity"
  59.       Top             =   720
  60.       Width           =   1335
  61.    End
  62.    Begin VB.TextBox Text1 
  63.       Height          =   375
  64.       Left            =   1200
  65.       TabIndex        =   1
  66.       ToolTipText     =   "Text to Find"
  67.       Top             =   120
  68.       Width           =   2415
  69.    End
  70.    Begin VB.CommandButton cmdcancel 
  71.       Cancel          =   -1  'True
  72.       Caption         =   "Cancel"
  73.       Height          =   372
  74.       Left            =   3720
  75.       TabIndex        =   7
  76.       ToolTipText     =   "Return to Notepad"
  77.       Top             =   600
  78.       Width           =   1092
  79.    End
  80.    Begin VB.CommandButton cmdFind 
  81.       Caption         =   "&Find"
  82.       Default         =   -1  'True
  83.       Height          =   372
  84.       Left            =   3720
  85.       TabIndex        =   6
  86.       ToolTipText     =   "Start Search"
  87.       Top             =   120
  88.       Width           =   1092
  89.    End
  90.    Begin VB.Label Label1 
  91.       Caption         =   "Fi&nd What:"
  92.       Height          =   255
  93.       Left            =   120
  94.       TabIndex        =   0
  95.       Top             =   240
  96.       Width           =   975
  97.    End
  98. Attribute VB_Name = "frmFind"
  99. Attribute VB_GlobalNameSpace = False
  100. Attribute VB_Creatable = False
  101. Attribute VB_PredeclaredId = True
  102. Attribute VB_Exposed = False
  103. Option Explicit
  104. Private Sub chkCase_Click()
  105. gFindCase = chkCase.Value
  106. End Sub
  107. Private Sub cmdCancel_Click()
  108. gFindString = Text1.Text
  109. gFindCase = chkCase.Value
  110. Unload frmFind
  111. End Sub
  112. Private Sub cmdFind_Click()
  113. gFindString = Text1.Text
  114. FindIt
  115. End Sub
  116. Private Sub Form_Load()
  117. cmdFind.Enabled = False
  118. optDirection(gFindDirection).Value = 1
  119. End Sub
  120. Private Sub optDirection_Click(index As Integer)
  121. gFindDirection = index
  122. End Sub
  123. Private Sub Text1_Change()
  124. gFirstTime = True
  125. If Text1.Text = "" Then
  126. cmdFind.Enabled = False
  127. cmdFind.Enabled = True
  128. End If
  129. End Sub
  130.